home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 03 (1990-03)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 11, No. 03 (1990-03)(MindCraft Publishing)(Side A)[a].po / SPLIT.S < prev    next >
Text File  |  1996-12-24  |  2KB  |  86 lines
  1. **********************************
  2. * APPLE SPLIT SCREEN SOURCE CODE *   
  3. * BY WILLIAM SIMPSON             * 
  4. * COPYRIGHT(C) 1990              *
  5. * MINDCRAFT PUBL. CORP.          *
  6. * CONCORD, MA 01742              *
  7. **********************************
  8. *
  9. * EDITOR ASSEMBLER
  10. *
  11. AMP              EQU $3F5
  12. BUF              EQU $201
  13. TOP              EQU $22
  14. BOTTOM        EQU $23
  15. CV                EQU $25
  16. CH                EQU $24
  17. BASIC          EQU $3D0
  18. *
  19.                     ORG $0300
  20. *
  21. * SET THE & VECTOR AND EXIT 
  22. *
  23.                     LDA #BEGIN    
  24.                     STA AMP+1
  25.                     LDA #3
  26.                     STA AMP+2
  27.                     JMP BASIC
  28. *
  29. * FIND THE COMMAND
  30. *    &S SPLIT THE SCREEN
  31. *    &T MOVE TO THE TOP WINDOW
  32. *    &B MOVE TO THE BOTTOM WINDOW
  33. *    &Q QUIT SPLIT SCREEN MODE
  34. *
  35. BEGIN          LDA BUF
  36.                     CMP #$53
  37.                     BEQ SPLIT
  38.                     CMP #$54
  39.                     BEQ T
  40.                     CMP #$42
  41.                     BEQ B
  42.                     CMP #$51
  43.                     BEQ QUIT
  44.                     JMP BASIC
  45. *
  46. * SPLIT THE SCREEN AND PUT
  47. * THE CORSOR IN THE TOP 
  48. * WINDOW
  49. *
  50. SPLIT          LDA #$0D
  51.                     STA BOTTOM
  52.                     LDA #$0C
  53.                     STA CV
  54.                     LDA #$00
  55.                     STA TOP
  56.                     STA CH
  57.                     JMP BASIC
  58. *
  59. T                  JMP SPLIT
  60. *
  61. * SET THE BOTTOM WINDOW AND 
  62. * PUT THE CURSOR THERE
  63. *
  64. B                  LDA #$0D
  65.                     STA TOP
  66.                     LDA #$18
  67.                     STA BOTTOM
  68. *
  69. * EXIT IS USED TO SET THE CURSOR
  70. * WHEN LEAVING SPLIT SCREEN
  71. *
  72. EXIT            LDA #$00
  73.                     STA CH
  74.                     LDA #$17
  75.                     STA CV
  76.                     JMP BASIC
  77. *
  78. * RESTORE THE SECREEN TO NORMAL
  79. *
  80. QUIT            LDA #$00
  81.                     STA TOP
  82.                     LDA #$18
  83.                     STA BOTTOM
  84.                     JMP EXIT
  85.  
  86.